home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / M-More Monthly Disks / (c)mb.d64 / line spike.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  30KB  |  881 lines
  1. 1 REM AUTO P6000
  2. 2 FORS=0TO62:READQ:POKE832+S,Q:NEXT
  3. 3 FORS=0TO62:READQ:POKE896+S,Q:NEXT
  4. 4 FORS=960TO1022:POKES,255:NEXT
  5. 10 POKE53280,3:POKE53281,0:PRINT""
  6. 20 PRINT"[147]":POKE53269,0:POKE53271,0:POKE53277,0
  7. 21 GOTO30
  8. 22 S=54272:POKE1105+S,1:POKE1082+S,1
  9. 23 POKE1085+S,1:POKE1127+S,1
  10. 24 POKE1191+S,1
  11. 25 POKE1227+S,1:POKE1249+S,1
  12. 26 POKE1257+S,1:POKE1319+S,1:POKE1371+S,1:POKE1376+S,1:RETURN
  13. 30 POKE2044,15
  14. 50 V=53248:POKEV+8,24:POKEV+9,50
  15. 60 POKEV+21,16
  16. 70 POKEV+43,5
  17. 90 FORX=50TO211STEP.4:POKEV+9,X:NEXTX
  18. 95 FORT=1TO500:NEXT
  19. 100 FORA=964TO1017STEP3:POKEA,0:NEXTA
  20. 102 PRINT" [146][163] [157][157][157] [146]  [157][157][157] [146][185] ":POKEV+21,0
  21. 103 FORS=0TO62:READQ:POKE960+S,Q:NEXT
  22. 104 FORT=1TO500:NEXT
  23. 105 S=54272:POKES+24,15:POKES,220:POKES+1,68:POKES+5,15:POKES+6,215
  24. 110 POKES+7,120:POKES+8,100:POKES+12,15:POKES+13,215
  25. 120 V=53248:POKEV+21,1
  26. 160 POKEV+39,7:POKEV+1,212
  27. 170 PRINT"";TAB(14)"  PLEASE ! [146]"
  28. 171 PRINT:PRINTTAB(7)"! PAY SPECIAL ATTENTION !"
  29. 172 PRINT:PRINTTAB(11)"THIS MAY WELL BE"
  30. 173 PRINT:PRINTTAB(10)"THE MOST IMPORTANT"
  31. 174 PRINT:PRINTTAB(14)"10 MINUTE"
  32. 177 PRINTTAB(10)"   PRESENTATION  [146]"
  33. 178 PRINT:PRINTTAB(7)" YOU HAVE EVER WATCHED":PRINT:PRINT
  34. 180 PRINT:PRINT:PRINTTAB(15)"       "
  35. 181 PRINTTAB(15)"  NTE  "
  36. 182 PRINTTAB(3);"[175][175][175][175][175][175][175][175][175][175][175][175]       [146][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
  37. 185 P=13
  38. 190 FORX=23TO347STEP6
  39. 200 RX=INT(X/256):LX=X-RX*256
  40. 210 POKEV,LX:POKEV+16,RX
  41. 220 IFP=13THENGOSUB 380
  42. 230 IFP=14THENGOSUB 390
  43. 240 POKE2040,P:FORT=1TO60:NEXT
  44. 250 P=P+1:IFP>15THENP=13
  45. 260 NEXT
  46. 261 FORX=347TO23STEP-6
  47. 262 RX=INT(X/256):LX=X-RX*256
  48. 263 POKEV,LX:POKEV+16,RX
  49. 264 IFP=13THENGOSUB 380
  50. 265 IFP=14THENGOSUB 390
  51. 266 POKE2040,P:FORT=1TO60:NEXT
  52. 267 P=P+1:IFP>15THENP=13
  53. 268 NEXT:POKEV+8,24
  54. 269 FORT=1TO500:NEXT:POKE53269,1
  55. 270 FORS=960TO1022:POKES,255:NEXT:POKEV+21,16
  56. 271 PRINT"   [157][157][157]   [157][157][157][175][175][175]"
  57. 272 FORT=1TO500:NEXT
  58. 273 FORX=211TO0STEP-.4:POKEV+9,X:NEXTX
  59. 274 POKE53269,0:FORX=1TO2000:NEXTX:PRINT""
  60. 275 PRINT"[147]":POKE53269,0:GOTO 501
  61. 280 DATA30,0,120,63,0,252,127,129,254,127,129,254,127,189,254,127,255,254
  62. 290 DATA63,255,252,31,187,248,3,187,192,1,255,128,3,189,192,1,231,128,1,255,0
  63. 300 DATA31,255,0,0,124,0,0,254,0,1,199,32,3,131,224,7,1,192,1,192,0,3,192,0
  64. 310 DATA30,0,120,63,0,252,127,129,254,127,129,254,127,189,254,127,255,254
  65. 320 DATA63,255,252,31,221,248,3,221,192,1,255,128,3,255,192,1,195,128,1,231,3
  66. 330 DATA31,255,255,0,124,0,0,254,0,1,199,0,7,1,120,7,0,204,1,128,124,7,128,56
  67. 340 DATA30,0,120,63,0,252,127,129,254,127,129,254,127,189,254,127,255,254
  68. 350 DATA63,255,252,31,221,248,3,221,192,1,255,134,3,189,204,1,199,152,1,255,48
  69. 360 DATA1,255,224,1,252,0,3,254,0
  70. 370 DATA7,14,0,204,14,0,248,56,0,112,112,0,0,60,0
  71. 380 POKES+4,129:POKES+4,128:RETURN
  72. 390 POKES+11,129:POKES+11,128:RETURN
  73. 501 DATA120,162,7,44,17,208,48,251,44,17,208,16,251,44,17,208,48,251
  74. 502 DATA173,17,208,16,251,41,248,29,57,192,141,17,208,206,5,208,202,208
  75. 503 DATA222,44,17,208,48,251,173,18,208,201,38,208,244,32,65,192,198
  76. 504 DATA174,208,201,88,96
  77. 505 DATA0,1,2,3,4,5,6,162,24,169,2,160,4,133,170,132
  78. 506 DATA171,132,167,160,216,133,172,132,173,132,169,169,42,133,166,133
  79. 507 DATA168,160,34,177,166,145,170,177,168,145,172,136,16,245,202,240
  80. 508 DATA41,224,12,208,11,169,7,13,17,208,141,17,208,206,5,208,160,4,185
  81. 509 DATA165,0,153,169,0,136,208,247,24,105,40,133,166,133,168,144,205
  82. 510 DATA230,167,230,169,208,199,96
  83. 511 PRINT"[147]":FORX=49152TO49300:READY:POKEX,Y:NEXT:X=2:Y=7
  84. 512 PRINT"[147]                   [169][223]"
  85. 513 PRINT"                  [169]  [223]
  86. 514 [153]"                 STEP    (null)
  87. 515 PRINT"                [169]      [223]
  88. 516 [153]"               STEP        (null)
  89. 517 PRINT"              [169]          [223]
  90. 518 [153]"             STEP            (null)
  91. 519 PRINT"            [169] [146] [223]  [146]  [146]    [146]   [223]
  92. 520 [153]"           STEP  WAIT  (null) WAIT   WAIT   WAIT    (null)
  93. 527 PRINT"           [223]  [146] [223][146] [223]   [146]   [146]    [146][169]
  94. 528 [153]"            (null) WAIT  (null)WAIT    WAIT   WAIT   WAITSTEP
  95. 529 PRINT"             [223][146]   [223][146]   [146]   [146]  [146][169]
  96. 530 [153]"              (null)          WAITSTEP
  97. 531 PRINT"               [223]        [146][169]
  98. 532 [153]"                (null)      WAITSTEP
  99. 533 PRINT"                 [223]    [146][169]
  100. 534 [153]"                  (null)  WAITSTEP
  101. 535 PRINT"                   [223][169]
  102. 536 [153]"                              "
  103. 537 [153]"           THE PROTECTOR 6000 "
  104. 538 [153]"                              "
  105. 539 [129]J[178]2[164]11[169]2:[151]53281,J:[151]53280,J
  106. 540 [129]I[178]1[164]40[169]2
  107. 550 [151]1023[170]I,81:[151]55295[170]I,X:[151]1024[170]I,81:[151]55296[170]I,Y
  108. 560 [151]2024[171]I,81:[151]56296[171]I,X:[151]2023[171]I,81:[151]56295[171]I,Y
  109. 570 [130]I:[151]53281,J[170]1:[151]53280,J[170]1
  110. 580 [129]I[178]1[164]23 [169] 2
  111. 590 [151]1984[171]40[172]I,81:[151]56256[171]40[172]I,X:[151]1984[171]40[172](I[170]1),81:[151]56256[171]40[172](I[170]1),Y
  112. 600 [151]1063[170]40[172]I,81:[151]55335[170]40[172]I,X:[151]1063[170]40[172](I[170]1),81:[151]55335[170]40[172](I[170]1),Y
  113. 610 [130]I
  114. 620 Z[178]X:X[178]Y:Y[178]Z:[130]J
  115. 630 [151]53281,6:[151]53280,6
  116. 640 [129]X[178]1[164]1000:[130]X
  117. 650 [151]53280,0:[151]53281,0:[153]"LOAD"
  118. 670 [153][163]2)"    " 
  119. 680 [153][163]2)"                             "
  120. 690 [153][163]2)"  TOTAL PROTECTION FOR YOUR  "
  121. 700 [153][163]2)"                             "
  122. 710 [153]:[153][163]4)"                                  "
  123. 720 [153][163]4)"  SENSITIVE ELECTRONIC EQUIPMENT  "
  124. 730 [153][163]4)"                                  "
  125. 740 [153]:[153][163]6)"                               "
  126. 750 [153][163]6)"   FROM NEW-TONE ELECTRONICS   "
  127. 760 [153][163]6)"                               "
  128. 770 [129]X[178]1[164]5000:[130]X
  129. 780 [153]""
  130. 790 [153]"LOAD"
  131. 800 [151]53280,0:[151]53281,0:[153]""
  132. 810 [153][163]5)"      "
  133. 820 [153][163]5)"                            "               
  134. 830 [153][163]5)"                            "
  135. 840 [153][163]5)"    THE PROTECTOR 6000.     "
  136. 850 [153][163]5)"                            "
  137. 860 [153][163]5)"                            "
  138. 870 [153]""
  139. 880 [153]""
  140. 890 [153]"                    WAIT
  141. 900 PRINT"                     [146]"
  142. 910 PRINT"                 NTE                  [146]"
  143. 920 PRINT"                     [146]"
  144. 930 PRINT"                    [146]
  145. 940 [135]A$
  146. 950 [139]A$[178]"-1" [167] [137]     1100
  147. 960 [153]""
  148. 970 [153][163]37)"";A$:[153]"CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD";[199](20)
  149. 980 [129]T[178]1[164]100:[130]:[137]      940
  150. 990 [131] T,H,I,S, ,I,S, ,*,
  151. 1000 [131] *, ,*, ,(, ,T,H,E,
  152. 1010 [131] P,R,O,T,E,C,T,O,R,
  153. 1020 [131] 6,0,0,0, ,), ,*,
  154. 1030 [131] *, ,*, ,.,.,.,.,.
  155. 1040 [131] T,H,I,S, ,I,S, ,*,
  156. 1050 [131] *, ,*, ,(, ,T,H,E,
  157. 1060 [131] P,R,O,T,E,C,T,O,R,
  158. 1070 [131] 6,0,0,0, ,), ,*,
  159. 1080 [131] *, ,*, ,.,.,.,.,.
  160. 1090 [131] .,.,.,.,.,.,.,-1
  161. 1100 [153]"LOAD"
  162. 1110 [151]53280,0:[151]53281,0:[153]""
  163. 1120 [153]"                                        ";
  164. 1130 [153]"        COMPLETE PROTECTION FROM        ";
  165. 1140 [153]"                                        ";
  166. 1150 [153]"    DESTRUCTIVE AC LINE TRANSIENTS.     ";
  167. 1160 [153]"                                        WAIT"
  168. 1170 [129] X[178]1[164]5000:[130]X
  169. 1172 [153]"LOAD"
  170. 1173 [151]53265,23:[129]J[178]1[164]47
  171. 1175 [135]SENT$
  172. 1177 [139] SENT$[179][177]"1"[167]1182
  173. 1179 [151]174,7:[158]12[172]4096
  174. 1181 [129]D[178]1[164]2000:[130]D:[130]J
  175. 1182 [139] SENT$[179][177]"2"[167]1188
  176. 1184 [151]174,1:[158]12[172]4096
  177. 1186 [129]D[178]1[164]2000:[130]D:[130]J
  178. 1188 [139] SENT$[179][177]"3"[167]1194
  179. 1190 [151]174,8:[158]12[172]4096
  180. 1192 [129]D[178]1[164]2000:[130]D:[130]J
  181. 1194 [139] SENT$[179][177]"4"[167]1214
  182. 1200 [141]1910
  183. 1202 [129]D[178]1[164]3000:[130]D:[130]J
  184. 1204 [137]1226
  185. 1214 [151]174,1:[158]12[172]4096
  186. 1216 TL[178]40[171][195](SENT$):[153][163]TL[173]2);
  187. 1218 [153]SENT$;"ON"
  188. 1220 [151]174,1:[158]12[172]4096
  189. 1222 [153][200](CD$,25);"                                    ON"
  190. 1224 [130]J
  191. 1226 [151]174,16:[158]12[172]4096:[151]53265,27
  192. 1230 [131]"SOMETHING THAT YOU CAN'T EVEN SEE"
  193. 1260 [131]"MAY BE SLOWLY  BUT SURELY KILLING"
  194. 1290 [131]"YOUR  EXPENSIVE"
  195. 1300 [131]"ELECTRONIC EQUIPMENT.","1"
  196. 1310 [131]" "," "," "," "
  197. 1350 [131]"                            "
  198. 1360 [131]"    ON.....TRANSIENT VOLTAGE.....WAIT"
  199. 1370 [131]"      ON                           WAIT"
  200. 1400 [131]"... AND IT CAN BE  FATAL TO"
  201. 1430 [131]"  COMPUTERSWAIT,ELECTRONIC GAMES,"
  202. 1460 [131]"VIDEO TAPE RECORDERS, IN FACT:"
  203. 1490 [131]"-ALMOST ANY OF TODAY'S-"," "
  204. 1520 [131]"                           "
  205. 1530 [131]"    ONSOPHISTICATED SOLID STATEWAIT"
  206. 1550 [131]"      ON       EQUIPMENT.        WAIT","2"
  207. 1560 [131]" "," "," "," "," "," "
  208. 1580 [131]"MOST OF THIS MODERN EQUIPMENT"
  209. 1610 [131]"    USES SENSITIVE LSIWAIT AND MOSWAIT"
  210. 1640 [131]"SEMI-CONDUCTOR DEVICES THAT ARE"
  211. 1670 [131]"EXTREMELY SUSCEPTIBLE TO VOLTAGE"
  212. 1700 [131]"  TRANSIENT SURGES OR GLITCHESWAIT.","3"
  213. 1710 [131]" "," "," "
  214. 1730 [131]"  IN COMPUTERWAIT EQUIPMENT ALONE,"
  215. 1760 [131]"INDUCED TRANSIENT VOLTAGES MAY"
  216. 1790 [131]"RESULT IN MOMENTARY LOSS OF DATA,"
  217. 1820 [131]"LOSS OF MEMORY,"
  218. 1850 [131]"ERRONEOUS READ-OUTS"
  219. 1860 [131]"AND / OR PRINT-OUTS"
  220. 1880 [131]"CARD OR DISC FAILURE"," "," "
  221. 1890 [131]"- - - EVEN - - -","4"
  222. 1905 [137]2056
  223. 1910 [153]"                                   "
  224. 1920 [153]"         TOTAL SYSTEM FAILURE.     "
  225. 1930 [153]"                                   WAIT"
  226. 1940 [142]
  227. 2056 [151]53265,27:[137]9135
  228. 2057 [151]53280,1:[151]53281,1:[153]"STOP"
  229. 2058 [153]"LOAD"
  230. 2059 [153]"   "
  231. 2060 [153]"                          "
  232. 2070 [153]"  STOP TRANSIENT VOLTAGE:     "
  233. 2080 [153]"                          "
  234. 2090 [153]"  STOP THE PROBLEM            "
  235. 2100 [153]"                          "
  236. 2110 [153]"STOP":[153]:[153]
  237. 2120 [153]"SHORT DURATION AC LINE TRANSIENTS"
  238. 2130 [153]"CAN HAVE, DEPENDING ON THE SOURCE,"
  239. 2140 [153]"HIGHLY DESTRUCTIVE VOLTAGE LEVELS OF"
  240. 2150 [153]"UP TO 6,000 VOLTS - WAY ABOVE THE SAFE"
  241. 2160 [153]"OPERATING LIMITS OF EQUIPMENT PLUGGED"
  242. 2170 [153]"DIRECTLY INTO AC POWER OUTLETS.":[153]:[153]
  243. 2180 [153]"THE PROTECTORWAIT PROVIDES COMPLETE"
  244. 2190 [153]"PROTECTION FROM THE DAMAGING EFFECTS"
  245. 2200 [153]"OF VOLTAGE TRANSIENTS."
  246. 2210 [129]X[178]1[164]12000:[130]X
  247. 2220 [153]"LOAD"
  248. 2230 [153]"   "
  249. 2240 [153]"                           "
  250. 2250 [153]"  STOP TRANSIENT VOLTAGE:      "
  251. 2260 [153]"                           "
  252. 2270 [153]"  STOP THE PROBLEM             "
  253. 2280 [153]"                           "
  254. 2290 [153]"STOP"
  255. 2300 [153]"DESTRUCTIVE POWER LINE TRANSIENTS"
  256. 2310 [153]"ARE GENERATED IN MANY WAYS:":[153]
  257. 2320 [153]"* EFFECTS OF NEARBY LIGHTNING ACTIVITY":[153]
  258. 2330 [153]"* ON/OFF SWITCHING OF MOTORS AS FOUND IN";
  259. 2340 [153]"REFRIGERATORS,AIR CONDITIONERS,FURNACES,";
  260. 2350 [153]"FREEZERS,WASHERS,DRYERS, ETC"
  261. 2360 [153]:[153]"* DEMAND POWER LOAD SWITCHING"
  262. 2370 [153]"  BY ELECTRIC UTILITY COMPANIES"
  263. 2380 [153]:[153]"* ELECTROSTATIC DISCHARGES (ESD)CLOSE"
  264. 2390 [153]:[153]"                                       WAIT"
  265. 2400 [153]"STOP"
  266. 2410 [129]X[178]1[164]12000:[130]X
  267. 2420 [153]"LOAD"
  268. 2430 [151]53280,0:[151]53281,0:[153]""
  269. 2440 [153]"   "
  270. 2450 [153]"                          "
  271. 2460 [153]"   THE PROTECTOR:         "
  272. 2470 [153]"                          "
  273. 2480 [153]"   THE SOLUTION           "
  274. 2490 [153]"                          "
  275. 2500 [153]"":[153]
  276. 2510 [153]"NOT TO BE CONFUSED WITH OTHER TRANSIENT"
  277. 2520 [153]"VOLTAGE PROTECTION UNITS AVAILABLE"
  278. 2525 [153]"TODAY"
  279. 2530 [153]:[153]"  THE PROTECTOR  WAIT USES STATE-OF-THE-ART"
  280. 2540 [153]:[153]"SOLID STATE COMPONENTS AND EXCLUSIVE"
  281. 2550 [153]"FEATURES TO PROVIDE YOU WITH COMPLETE"
  282. 2560 [153]"AND TOTAL PROTECTION FROM TRANSIENT"
  283. 2570 [153]"VOLTAGE AS WELL AS OTHER DAMAGING"
  284. 2580 [153]"FACTORS."
  285. 2590 [129]X[178]1[164]12000:[130]X
  286. 2600 [153]"LOAD"
  287. 2610 [153]:[153]"                                       "
  288. 2620 [153]:[153]" THE PROTECTOR WAIT USES SILICON PN JUNCTION"
  289. 2630 [153]"DEVICES.  THESE SOLID STATE DEVICES HAVE"
  290. 2640 [153]"BEEN PROVEN TO BE THE MOST EFFECTIVE":[153]
  291. 2650 [153]"MEANS OF PROTECTING ELECTRONIC EQUIPMENT"
  292. 2660 [153]"AGAINST VOLTAGE TRANSIENTS, AND ARE":[153]
  293. 2670 [153]"PREFERRED OVER METAL OXIDE VARISTORS":[153]
  294. 2680 [153]"(MOV'S) OR GAS DISCHARGE TUBES BY":[153]
  295. 2690 [153]"MANUFACTURERS THAT DEMAND CRITICAL":[153]
  296. 2700 [153]"TRANSIENT VOLTAGE PROTECTION."
  297. 2710 [153]"                                       "
  298. 2720 [129]X[178]1[164]12000:[130]X
  299. 2730 [153]"LOAD"
  300. 2740 [153]:[153]"                                       WAIT
  301. 2750 PRINT:PRINT:PRINT:PRINT:PRINT
  302. 2760 PRINT"SILICON PN JUNCTION DEVICES PROVIDE":PRINT
  303. 2770 PRINT"THE FASTEST RESPONSE AVAILABLE TO AC":PRINT
  304. 2780 PRINT"LINE TRANSIENTS - LONG BEFORE THESE":PRINT
  305. 2790 PRINT"DETRIMENTAL TRANSIENTS CAN REACH YOUR ":PRINT
  306. 2800 PRINT:PRINT"        VULNERABLE EQUIPMENT. [146]"
  307. 2810 PRINT"                                       [146]"
  308. 2820 FORX=1TO9000:NEXTX
  309. 2840 POKE53280,0:POKE53281,0:PRINT""
  310. 2850 PRINT"[147]"
  311. 2860 PRINT"   "
  312. 2870 PRINT"                          "
  313. 2880 PRINT"  SUPERB RELIABILITY      "
  314. 2890 PRINT"                          "
  315. 2900 PRINT"":PRINT
  316. 2910 PRINT"BECAUSE OF THE SOLID STATE CONSTRUCTION":PRINT
  317. 2920 PRINT"OF  THE PROTECTOR [146] IT CAN EASILY WITH-":PRINT
  318. 2930 PRINT"STAND THOUSANDS OF TRANSIENT PULSES":PRINT
  319. 2940 PRINT"WITHOUT FAILURE.  IN TYPICAL LIGHTNING":PRINT
  320. 2950 PRINT"ENVIRONMENTS, SILICON PN JUNCTION":PRINT
  321. 2960 PRINT"DEVICES HAVE A STATISTICAL LIFE":PRINT
  322. 2970 PRINT"EXPECTANCY OF MORE THAN [159]20 YEARS."
  323. 2980 PRINT"                                       [146]"
  324. 2990 FORX=1TO12000:NEXTX
  325. 4000 POKE53280,1:POKE53281,1:PRINT"[144]"
  326. 4010 PRINT"[147]"
  327. 4020 PRINT:PRINT"   "
  328. 4030 PRINT"                          "
  329. 4040 PRINT" [144] LOWER CLAMPING VOLTAGE  "
  330. 4050 PRINT"                          "
  331. 4060 PRINT"[144]":PRINT
  332. 4070 PRINT"THE MAIN PURPOSE OF A TRANSIENT VOLTAGE"
  333. 4080 PRINT"PROTECTION UNIT IS TO LIMIT THE MAXIMUM"
  334. 4090 PRINT"VOLTAGE REACHING SENSITIVE ELECTRONIC"
  335. 4100 PRINT"EQUIPMENT DURING A TRANSIENT PULSE."
  336. 4110 PRINT"THE LOWER THIS SO CALLED  'CLAMPING [146]"
  337. 4120 PRINT" VOLTAGE' [146] THE MORE EFFECTIVE THE UNIT"
  338. 4130 PRINT"WILL BE IN PROTECTING YOUR EQUIPMENT."
  339. 4140 PRINT:PRINT:PRINT" THE PROTECTOR [146] HAS A MAXIMUM CLAMPING"
  340. 4150 PRINT"VOLTAGE OF ONLY 335 VOLTS, WELL BELOW"
  341. 4160 PRINT"THE CLAMPING VOLTAGE OF OTHER"
  342. 4170 PRINT"PROTECTION DEVICES."
  343. 4180 FORX=1TO12000:NEXTX
  344. 4190 PRINT"[147]"
  345. 4200 FORI=1TO38:PRINT"[166][146]";:NEXT
  346. 4210 FORI=1TO22:PRINT"[157][166][146]";:NEXT
  347. 4220 FORI=1TO37:PRINT"[157][157][166][146]";:NEXT
  348. 4230 FORI=1TO22:PRINT"[145][157][166][146]";:NEXT
  349. 4240 PRINT"[144]":PRINT:PRINT
  350. 4250 PRINTTAB(2)"THE OTHER DEVICES COMMONLY USE"
  351. 4260 PRINTTAB(2)"ONLY METAL OXIDE VARISTORS"
  352. 4270 PRINTTAB(2)" MOV'S [146] OR GAS DISCHARGE TUBES."
  353. 4280 PRINT:PRINT:PRINTTAB(2)"NOTE- MOV'S [146] ALSO HAVE AN INHERENT"
  354. 4290 PRINTTAB(2)"WEAR-OUT[146] MECHANISM WHICH DEGRADES"
  355. 4300 PRINTTAB(2)"THE CLAMPING VOLTAGE AFTER EVERY"
  356. 4310 PRINTTAB(2)"PULSE,EVEN WHEN THE PULSE IS BELOW"
  357. 4320 PRINTTAB(2)"RATED VALUE...THEY WEAR OUT A"
  358. 4325 PRINTTAB(2)"LITTLE WITH EACH PULSE. AFTER A"
  359. 4328 PRINTTAB(2)"PERIOD OF TIME YOUR PROTECTION IS"
  360. 4329 PRINTTAB(2)"ALL BUT    GONE.  [144]"
  361. 4330 PRINT:PRINT:PRINTTAB(2)" THE PROTECTOR [146] DOES NOT HAVE THIS"
  362. 4340 PRINTTAB(2)" SERIOUS DEFICIENCY"
  363. 4350 FORX=1TO12000:NEXTX
  364. 4510 POKE53280,13:POKE53281,13:PRINT"[144]!
  365. 4520 [153]"LOAD"
  366. 4530 [153]:[153]"   "
  367. 4540 [153]"                          "
  368. 4550 [153]"  STOP CAPABILITY             "
  369. 4560 [153]"                          "
  370. 4570 [153]"STOP"
  371. 4580 [153]:[153]"THE INSTITUTE OF ELECTRICAL ENGINEERS"
  372. 4590 [153]"HAS ESTABLISHED SPECIFICATIONS FOR"
  373. 4600 [153]"TESTING THE EFFECTIVENESS OF TRANSIENT"
  374. 4610 [153]"SUPPRESSION DEVICES AGAINST CURRENT"
  375. 4620 [153]"SURGES.  THIS SPECIFICATION DESCRIBES A"
  376. 4630 [153]"TRANSIENT PULSE WHICH CLOSELY"
  377. 4640 [153]"DUPLICATES A NON-REPETITIVE,HIGH-"
  378. 4650 [153]"IMPULSE LIGHTNING WAVEFORM HAVING A"
  379. 4660 [153]"MAXIMUM SURGE CURRENT OF 3000 AMPS."
  380. 4670 [153]:[153]"STOP THE PROTECTOR WAIT IS DESIGNED TO"
  381. 4680 [153]"WITHSTAND A  6000 WAIT AMP MAXIMUM"
  382. 4690 [153]"SURGE CURRENT PULSE ON A ONE TIME"
  383. 4700 [153]"BASIS WITHOUT FAILURE"
  384. 4710 [129]X[178]1[164]12000:[130]X
  385. 4900 [151]53280,7:[151]53281,7:[153]"STOP"
  386. 4910 [153]"LOAD"
  387. 4920 [153]"   "
  388. 4930 [153]"                          "
  389. 4940 [153]" STOP DUAL MODE PROTECTION    "
  390. 4950 [153]"                          "
  391. 4960 [153]"STOP"
  392. 4970 [153]" THE PROTECTOR WAIT IS DESIGNED TO PROVIDE":[153]
  393. 4980 [153]"FULL PROTECTION AGAINST TRANSIENTS WHICH"
  394. 4990 [153]"MAY ENTER EQUIPMENT THROUGH 'LINE TO":[153]
  395. 5000 [153]"NEUTRAL' PATHS (DIFFERENTIAL MODE) OR":[153]
  396. 5010 [153]"THROUGH 'LINE OR NEUTRAL TO GROUND'":[153]
  397. 5020 [153]"PATHS (COMMON MODE),  PROVIDED WAIT THAT":[153]
  398. 5030 [153]"THE  AC WAIT RECEPTACLE INTO WHICH":[153]
  399. 5040 [153]"  THE PROTECTOR  WAIT IS PLUGGED IS":[153]
  400. 5050 [153]"ADEQUATELY GROUNDED."
  401. 5060 [129]X[178]1[164]12000:[130]X
  402. 5070 [153]"LOAD"
  403. 5210 [153]"LOAD"
  404. 5220 [151]53280,1:[151]53281,1:[153]"STOP"
  405. 5230 [153]"   "
  406. 5240 [153]"                          "
  407. 5250 [153]"  STOP EMI/RFI SUPPRESSION    "
  408. 5260 [153]"                          "
  409. 5270 [153]"STOP"
  410. 5280 [153]"ELECTRO-MAGNETIC INTERFERENCE AND RADIO"
  411. 5290 [153]"FREQUENCY INTERFERENCE (EMI/RFI) IS A"     "
  412. 5300 PRINT"HIGH FREQUENCY OR LOW VOLTAGE TRANSIENT"
  413. 5310 PRINT"CAPABLE OF DEGRADING PERFORMANCE IN"
  414. 5320 PRINT"EQUIPMENT USING SENSITIVE  MOS [146] DEVICES."
  415. 5330 PRINT:PRINT"LIKE HIGH VOLTAGE TRANSIENTS, EMI/RFI"
  416. 5340 PRINT"NOISE CAN CAUSE SLOW DEGRADATION OF"
  417. 5350 PRINT"THESE COMPONENTS,EVENTUALLY RESULTING"
  418. 5360 PRINT"IN EQUIPMENT FAILURE.   THE PROTECTOR [146]"
  419. 5370 PRINT"HAS A BUILT-IN NOISE SUPPRESSOR THAT"
  420. 5380 PRINT"REDUCES  EMI/RFI INTERFERENCE TO WELL"
  421. 5390 PRINT"BELOW DAMAGE LEVELS"
  422. 5400 FORX=1TO12000:NEXTX
  423. 5410 PRINT"[147]"
  424. 5610 POKE53280,0:POKE53281,0:PRINT""
  425. 5620 PRINT"[147]"
  426. 5630 PRINT"   "
  427. 5640 PRINT"                          "
  428. 5650 PRINT"   OVERLOAD PROTECTION    "
  429. 5660 PRINT"                          "
  430. 5670 PRINT"":PRINT
  431. 5680 PRINT"IN THE EVENT OF SEVERE OVER-VOLTAGE"
  432. 5690 PRINT"TRANSIENT SURGES OR A LINE CURRENT THAT"
  433. 5700 PRINT"EXCEEDS  15 [146] AMPS,  THE PROTECTOR'S [146]"
  434. 5710 PRINT"BUILT-IN CIRCUIT BREAKER WILL TRIP,"
  435. 5720 PRINT"THEREBY PROTECTING EQUIPMENT PLUGGED"
  436. 5730 PRINT"INTO THE UNIT.":PRINT:PRINT
  437. 5740 PRINT"BY RESETTING THE BREAKER, THE DEVICE"
  438. 5750 PRINT"WILL CONTINUE TO PROVIDE CONTINOUS"
  439. 5760 PRINT"TRANSIENT PROTECTION. . . . .":PRINT:PRINT
  440. 5770 PRINT"A LIGHTED SWITCH ALLOWS MONITORING OF"
  441. 5780 PRINT"  THE PROTECTOR  [146] IN ITS NORMAL"
  442. 5790 PRINT"TRANSIENT PROTECTION FUNCTION."
  443. 5800 FORX=1TO12000:NEXTX
  444. 5810 PRINT"[147]"
  445. 5910 POKE53280,0:POKE53281,0:PRINT"
  446. 5920 [153]"LOAD"
  447. 5925 [153][199](14)
  448. 5930 [153]"    "
  449. 5940 [153]"                             "
  450. 5950 [153]"  GET TOTAL PROTECTION FOR:  "
  451. 5960 [153]"                             "
  452. 5970 [153]""
  453. 5980 [129]I[178]1[164]38:[153]"(null)WAIT";:[130]     
  454. 5990 [129]I[178]1[164]17:[153]"CMD(null)WAIT";:[130]
  455. 6000 [129]I[178]1[164]37:[153]"CMDCMD(null)WAIT";:[130]
  456. 6010 [129]I[178]1[164]17:[153]"ONCMD(null)WAIT";:[130]
  457. 6020 [153]:[153]:[153][163]2)"-MINI/MICRO COMPUTERS"
  458. 6030 [153]:[153][163]19)"-ELECTRONIC GAMES"
  459. 6040 [153]:[153][163]2)"-COMPUTER TERMINALS"
  460. 6050 [153]:[153][163]19)"-CALCULATORS"
  461. 6060 [153]:[153][163]2)"-TELECOMMUNICATIONS"
  462. 6070 [153]:[153][163]19)"-AUDIO-VIDEO"
  463. 6080 [153]:[153][163]2)"-DATA PROCESSING"
  464. 6090 [129]X[178]1[164]6000:[130]X
  465. 6100 [153][199](142)
  466. 6110 [153]"LOAD"
  467. 6120 [151]53280,1:[151]53281,1:[153]"
  468. 6140 PRINT"    "
  469. 6150 PRINT"                             "
  470. 6160 PRINT" [144] GET TOTAL PROTECTION FOR:  "
  471. 6170 PRINT"                             "
  472. 6180 PRINT"[144]"
  473. 6190 FORI=1TO38:PRINT"[218][146]";:NEXT
  474. 6200 FORI=1TO16:PRINT"[157][218][146]";:NEXT
  475. 6210 FORI=1TO37:PRINT"[157][157][218][146]";:NEXT
  476. 6220 FORI=1TO16:PRINT"[145][157][218][146]";:NEXT
  477. 6240 PRINT:PRINT:PRINT:PRINTTAB(2)"* INDUSTRIAL CONTROLLERS"
  478. 6250 PRINT:PRINTTAB(17)"* MEDICAL EQUIPMENT"
  479. 6260 PRINT:PRINTTAB(2)"* PROCESS CONTROL"
  480. 6270 PRINT:PRINTTAB(19)"* INSTRUMENTATION"
  481. 6280 PRINT:PRINTTAB(2)"* ELECTRONIC CASH REGISTERS"
  482. 6290 PRINT:PRINTTAB(20)"* TEST EQUIPMENT"
  483. 6310 FORX=1TO6000:NEXTX
  484. 6350 PRINT"[147]"
  485. 6370 PRINT"    "
  486. 6380 PRINT"                          "
  487. 6390 PRINT"   U.L. LISTED            "
  488. 6400 PRINT"                          "
  489. 6410 PRINT""
  490. 6420 POKE53280,0:POKE53281,0
  491. 6430 PRINT"UNDERWRITERS LABORATORIES HAS LISTED THE"
  492. 6440 PRINT" NTE [146] MODEL  P-6000 [146] TRANSIENT VOLTAGE":PRINT
  493. 6450 PRINT"PROTECTOR UNDER U.L. STANDARD 1449 FOR":PRINT
  494. 6460 PRINT"TRANSIENT VOLTAGE SURGE SUPPRESSORS.":PRINT
  495. 6470 PRINT"THIS COVERS PERFORMANCE OF TRANSIENT":PRINT
  496. 6480 PRINT"PROTECTIVE DEVICES FOR LIGHTNING":PRINT
  497. 6490 PRINT"TRANSIENT SURGES OF 500 AMPS , FOR":PRINT
  498. 6500 PRINT"A 8 X 20 MICRO-SECOND LIGHTNING IMPULSE":PRINT
  499. 6510 PRINT"WAVEFORM"
  500. 6520 FORX=1TO12000:NEXTX
  501. 6530 PRINT"[147]"
  502. 6540 PRINT"    "
  503. 6550 PRINT"                          "
  504. 6560 PRINT"    LIMITED WARRANTY      "
  505. 6570 PRINT"                          "
  506. 6580 PRINT""
  507. 6590 PRINT" NTE [146] WILL REPAIR OR REPLACE THE":PRINT
  508. 6600 PRINT"MODEL P-6000 TRANSIENT VOLTAGE PROTECTOR"
  509. 6610 PRINT"WITHOUT CHARGE ,IF DEFECTIVE IN,MATERIAL"
  510. 6620 PRINT"OR WORKMANSHIP (UPON RETURN OF THE":PRINT
  511. 6630 PRINT"PRODUCT TO THE FACTORY ,SHIPMENT":PRINT
  512. 6640 PRINT"PRE-PAID) WITHIN ONE YEAR FROM THE":PRINT
  513. 6650 PRINT"DATE OF PURCHASE.  (YOUR INVOICE IS THE":PRINT
  514. 6660 PRINT"PROOF OF THE DATE OF PURCHASE.)":PRINT
  515. 6670 PRINT"                                       [146]"
  516. 6680 FORX=1TO12000:NEXTX
  517. 6690 POKE53280,1:POKE53281,1
  518. 6700 PRINT"[147]"
  519. 6710 PRINT"    "
  520. 6720 PRINT"                                   "
  521. 6730 PRINT"  [144] SPECIFICATIONS FOR MODEL P6000  [146]"
  522. 6740 PRINT"                                   "
  523. 6750 PRINT"[144]"
  524. 6760 FORI=1TO38:PRINT"[209]";:NEXT
  525. 6770 FORI=1TO17:PRINT"[157][209]";:NEXT
  526. 6780 FORI=1TO37:PRINT"[157][157][209]";:NEXT
  527. 6790 FORI=1TO17:PRINT"[145][157][209]";:NEXT
  528. 6800 PRINTTAB(2)"[209][209][209] MECHANICAL  SPECIFICATIONS "
  529. 6810 PRINT:PRINT:PRINTTAB(2)"[144]EXTRUDED,BRUSHED ALUMINUM CASE-":PRINT
  530. 6820 PRINTTAB(2)"6FT.,3 WIRE,#14 POLARIZED LINE"
  531. 6830 PRINTTAB(2)"CORD - 6 TRANSIENT PROTECTED AND"
  532. 6840 PRINTTAB(2)"GROUNDED OUTLETS-":PRINT
  533. 6850 PRINTTAB(2)"RESETTABLE 15 AMP.CIRCUIT BREAKER"
  534. 6860 PRINTTAB(2)"ON/OFF SWITCH WITH LED INDICATOR-":PRINT
  535. 6870 PRINTTAB(2)"TEMPORARY MOUNTING BRACKETS-":PRINT
  536. 6880 PRINTTAB(2)"WEIGHT:2LBS,2OZS. (965 GRAMS)"
  537. 6890 PRINTTAB(2)"SIZE:15.25X1.5X2IN.(38.7X3.8X5CM)-"
  538. 6900 FORX=1TO11000:NEXTX
  539. 6910 PRINT"[147]"
  540. 6920 FORI=1TO38:PRINT"*";:NEXT
  541. 6930 PRINT:PRINT"*[144]     ELECTRICAL CHARACTERISTICS     *"
  542. 6940 FORI=1TO38:PRINT"*";:NEXT
  543. 6950 PRINT"[144]                CONTINOUS"
  544. 6955 PRINT:PRINT"OPERATING LINE VOLTAGE:"
  545. 6960 PRINTTAB(21)"120 VAC 50/60 HZ."
  546. 6970 PRINT"MAX.STANDBY CURRENT(LEAKAGE):"
  547. 6980 PRINTTAB(13)"LESS THAN 250 MICRO-AMPS."
  548. 6990 PRINT"MAXIMUM LINE CURRENT:"
  549. 7000 PRINTTAB(18)"15 AMPS.(1800 WATTS)"
  550. 7010 PRINT"EMI/RFI (NOISE) REJECTION:"
  551. 7020 PRINTTAB(21)"DIFFERENTIAL MODE"
  552. 7030 PRINT"FREQUENCY RANGE:"
  553. 7040 PRINTTAB(21)"100KHZ. TO 10MHZ."
  554. 7050 PRINT"ATTENUATION:"
  555. 7060 PRINTTAB(28)"5 TO 30DB."
  556. 7070 PRINT"OVERLOAD PROTECTION:"
  557. 7080 PRINTTAB(15)"15 AMP. CIRCUIT BREAKER"
  558. 7090 PRINT"OPERATING & STORAGE TEMP.:"
  559. 7100 PRINTTAB(22)"-10'C. TO +70'C."
  560. 7110 FORX=1TO12000:NEXTX
  561. 7120 PRINT"[147]"
  562. 7130 POKE53280,0:POKE53281,0:PRINT""
  563. 7140 PRINT"                                       [146]"
  564. 7150 PRINT:PRINTTAB(2)"TRANSIENT:DIFFERENTIAL MODE"
  565. 7160 PRINTTAB(19)"(LINE TO NEUTRAL)"
  566. 7170 PRINT:PRINT:PRINT"MAX.CLAMPING VOLTAGE(8 X 20MICRO-SEC):"
  567. 7180 PRINTTAB(18)"335 VOLTS @ 500 AMPS"
  568. 7190 PRINT:PRINTTAB(6)"MAX.TRANSIENT VOLTAGE:"
  569. 7200 PRINTTAB(28)"6000 VOLTS"
  570. 7210 PRINT:PRINT"MAX.SURGE CURRENT CAPABILITY"
  571. 7220 PRINTTAB(15)"(8 X 20 MICRO-SEC.):"
  572. 7230 PRINTTAB(13)"6000 AMPS.(ONE TIME ONLY)"
  573. 7240 PRINT:PRINTTAB(4)"PROTECTION CLAMPING TIME:"
  574. 7250 PRINTTAB(14)"LESS THAN 10 NANOSECONDS"
  575. 7260 PRINT:PRINT"*THIS PRODUCT IS GUARANTEED TO MEET"
  576. 7270 PRINT"THESE SPECIFICATIONS AS LONG AS THE"
  577. 7280 PRINT"MAXIMUM SURGE CURRENT IS NOT EXCEEDED."
  578. 7290 FORX=1TO11000:NEXTX
  579. 7300 PRINT"[147]"
  580. 7310 PRINT"                                      [146]"
  581. 7320 PRINT:PRINTTAB(2)"TRANSIENT:COMMON MODE"
  582. 7330 PRINTTAB(17)"(NEUTRAL TO GROUND)"
  583. 7340 PRINT:PRINT:PRINT"MAX.CLAMPING VOLTAGE(8 X 20MICRO-SEC):
  584. 7350 [153][163]18)"450 VOLTS @ 500 AMPS"
  585. 7360 [153]:[153][163]6)"MAX.TRANSIENT VOLTAGE:"
  586. 7370 [153][163]28)"6000 VOLTS"
  587. 7380 [153]:[153]"*MAX.SURGE CURRENT CAPABILITY"
  588. 7390 [153][163]15)"(8 X 20 MICRO-SEC.):"
  589. 7400 [153][163]13)"2000 AMPS.(ONE TIME ONLY)"
  590. 7410 [153]:[153][163]4)"PROTECTION CLAMPING TIME:"
  591. 7420 [153][163]14)"LESS THAN 50 NANOSECONDS"
  592. 7430 [153]:[153]"*THIS PRODUCT IS GUARANTEED TO MEET"
  593. 7440 [153]"THESE SPECIFICATIONS AS LONG AS THE"
  594. 7450 [153]"MAXIMUM SURGE CURRENT IS NOT EXCEEDED."
  595. 7460 [129]X[178]1[164]11000:[130]X
  596. 7470 [153]"LOAD":[153]
  597. 7480 [153]"                                       WAIT";
  598. 7490 [153]"    TRANSIENT VOLTAGE SURGE SUPPRESSOR  WAIT";
  599. 7500 [153]"                                         WAIT";
  600. 7510 [153]"              MODEL P-6000   WAIT"
  601. 7520 [153]"                             WAIT"
  602. 7530 [153]"":[153]
  603. 7540 [153]"THE DEVICES USED IN THIS PRODUCT MAY BE ";
  604. 7550 [153]"MANUFACTURED UNDER ONE OR MORE OF UNITED";
  605. 7560 [153]"STATES PATENTS 3,772,219 , 3,934,175 AND";
  606. 7565 [153]"4,296,336."
  607. 7570 [153]:[153]:[153]"  NEW TONE ELECTRONICS (NTE)   WAIT RESERVES";
  608. 7580 [153]"THE RIGHT TO CHANGE ANY ELECTRICAL OR"
  609. 7590 [153]"MECHANICAL CHARACTERISTICS AS SPECIFIED"
  610. 7600 [153]"HEREIN."
  611. 7610 [153]"                     "
  612. 7620 [153]"                      "
  613. 7630 [153]"                  NTE                   WAIT";
  614. 7640 [153]"                      "
  615. 7650 [153]"                     "
  616. 7660 [129]X[178]1[164]10000:[130]X
  617. 7670 [153]"LOAD":[151]53280,13:[151]53281,15:[153]"STOP"
  618. 7675 [129]X[178]1[164]800:[130]X
  619. 7680 [153]"";[163]15)"SHUFFLING";
  620. 7690 [153]:[153][163]17)"DECK"
  621. 7700 [129]L[178]54272[164]54296:[151]L,0:[130]
  622. 7710 [129]YT[178]1[164]2
  623. 7720 [129]X[178]1[164]25
  624. 7730 [151]54296,15:[151]54276,129:[151]54277,15
  625. 7740 [151]54273,60:[151]54272,100
  626. 7750 [151]54273,0:[151]54272,0:[151]54276,0
  627. 7760 [130]
  628. 7770 [129]FF[178]1[164]300:[130]
  629. 7780 [129]X[178]1[164]40
  630. 7790 [151]54296,15:[151]54276,129:[151]54277,128
  631. 7800 [151]54273,90:[151]54272,140
  632. 7810 [151]54273,0:[151]54272,0:[151]54276,0
  633. 7820 [130]X
  634. 7830 [129]HG[178]1[164]500:[130]HG
  635. 7840 [130]YT
  636. 7850 [153]"LOAD"
  637. 7860 [153]"";[163]16)"DEALING"
  638. 7870 [129]X[178]1[164]1000:[130]X
  639. 7880 [153]"LOAD"
  640. 7890 [153][163]2);"THENTAB(TAB(TAB(TAB(TAB(TAB(TAB(FN"
  641. 7900 [153][163]2);"THEN XXXXX FN"
  642. 7910 [153][163]2);"THEN XXXXX FN"
  643. 7920 [153][163]2);"THEN XXXXX FN"
  644. 7930 [153][163]2);"THEN XXXXX FN                      STOPDEALER"
  645. 7940 [153][163]2);"THEN XXXXX FN"
  646. 7950 [153][163]2);"THEN XXXXX FN"
  647. 7960 [153][163]2);"THEN XXXXX FN"
  648. 7970 [153][163]2);"THENTOTOTOTOTOTOTOFN"
  649. 7975 [151]54296,15:[151]54276,129:[151]54277,67
  650. 7980 [151]54273,70:[151]54272,125
  651. 7985 [129]XS[178]1[164]200:[130]:[151]54273,0:[151]54272,0:[151]54276,0
  652. 7990 [153]"STOP":[153]
  653. 8000 [153][163]2);"THENTAB(TAB(TAB(TAB(TAB(TAB(TAB(FN"
  654. 8010 [153][163]2);"THEN 10    FN"
  655. 8020 [153][163]2);"THEN  ATN ATN  FN"
  656. 8030 [153][163]2);"THEN  ATN ATN  FN"
  657. 8040 [153][163]2);"THEN  ATN ATN  FN                      PLAYER"
  658. 8050 [153][163]2);"THEN  ATN ATN  FN"
  659. 8060 [153][163]2);"THEN  ATN ATN  FN"
  660. 8070 [153][163]2);"THEN    10 FN"
  661. 8080 [153][163]2);"THENTOTOTOTOTOTOTOFN"
  662. 8085 [151]54296,15:[151]54276,129:[151]54277,67
  663. 8090 [151]54273,70:[151]54272,125
  664. 8095 [129]XS[178]1[164]200:[130]:[151]54273,0:[151]54272,0:[151]54276,0
  665. 8100 [153]"":[153]""
  666. 8110 [153][163]11);"THENTAB(TAB(TAB(TAB(TAB(TAB(TAB(FN"
  667. 8120 [153][163]11);"THEN 5     FN"
  668. 8130 [153][163]11);"THEN  (null) (null)  FN"
  669. 8140 [153][163]11);"THEN       FN"
  670. 8150 [153][163]11);"THEN   (null)   FN"
  671. 8160 [153][163]11);"THEN       FN"
  672. 8170 [153][163]11);"THEN  (null) (null)  FN"
  673. 8180 [153][163]11);"THEN    5  FN"
  674. 8190 [153][163]11);"THENTOTOTOTOTOTOTOFN"
  675. 8200 [151]54296,15:[151]54276,129:[151]54277,67
  676. 8210 [151]54273,70:[151]54272,125
  677. 8220 [129]XS[178]1[164]200:[130]:[151]54273,0:[151]54272,0:[151]54276,0
  678. 8230 [153]"":[153]
  679. 8240 [153][163]11);"THENTAB(TAB(TAB(TAB(TAB(TAB(TAB(FN"
  680. 8250 [153][163]11);"THEN K     FN"
  681. 8260 [153][163]11);"THEN  (null)    FN"
  682. 8270 [153][163]11);"THEN       FN"
  683. 8280 [153][163]11);"THEN  KING FN"
  684. 8290 [153][163]11);"THEN       FN"
  685. 8300 [153][163]11);"THEN    (null)  FN"
  686. 8310 [153][163]11);"THEN    K  FN"
  687. 8320 [153][163]11);"THENTOTOTOTOTOTOTOFN"
  688. 8330 [151]54296,15:[151]54276,129:[151]54277,67
  689. 8340 [151]54273,70:[151]54272,125
  690. 8350 [129]XS[178]1[164]200:[130]:[151]54273,0:[151]54272,0:[151]54276,0:[153]"STOP"
  691. 8360 [129]X[178]1[164]2000:[130]X
  692. 8370 [153]"ONON";[163]20);"STAND PAT"
  693. 8380 [129]X[178]1[164]2000:[130]X
  694. 8390 [153]""
  695. 8400 [153][163]2);"THENTAB(TAB(TAB(TAB(TAB(TAB(TAB(FN"
  696. 8410 [153][163]2);"THEN 5     FN"
  697. 8420 [153][163]2);"THEN  (null) (null)  FN"
  698. 8430 [153][163]2);"THEN       FN"
  699. 8440 [153][163]2);"THEN   (null)   FN"
  700. 8450 [153][163]2);"THEN       FN"
  701. 8460 [153][163]2);"THEN  (null) (null)  FN"
  702. 8470 [153][163]2);"THEN    5  FN"
  703. 8480 [153][163]2);"THENTOTOTOTOTOTOTOFN"
  704. 8490 [151]54296,15:[151]54276,129:[151]54277,67
  705. 8500 [151]54273,70:[151]54272,125
  706. 8510 [129]XS[178]1[164]200:[130]:[151]54273,0:[151]54272,0:[151]54276,0
  707. 8520 [129]X[178]1[164]1000:[130]X
  708. 8530 [153]""
  709. 8540 [153][163]20);"THENTAB(TAB(TAB(TAB(TAB(TAB(TAB(FN"
  710. 8550 [153][163]20);"THEN A     FN"
  711. 8560 [153][163]20);"THEN  (null)    FN"
  712. 8570 [153][163]20);"THEN       FN"
  713. 8580 [153][163]20);"THEN  ACE  FN"
  714. 8590 [153][163]20);"THEN       FN"
  715. 8600 [153][163]20);"THEN    (null)  FN"
  716. 8610 [153][163]20);"THEN    A  FN"
  717. 8620 [153][163]20);"THENTOTOTOTOTOTOTOFN"
  718. 8630 [151]54296,15:[151]54276,129:[151]54277,67
  719. 8640 [151]54273,70:[151]54272,125
  720. 8650 [129]XS[178]1[164]200:[130]:[151]54273,0:[151]54272,0:[151]54276,0:[153]"STOP"
  721. 8660 [129]X[178]1[164]2000:[130]X
  722. 8670 [153]"LOAD"
  723. 8680 [153]"";[163]14);"' YOU LOSE '"
  724. 8690 [151]54296,15:[151]54276,33:[151]54277,127
  725. 8700 [129]J[178]1[164]70:[151]54273,4:[151]54272,73:[130]
  726. 8710 [151]54276,0:[151]54273,0:[151]54272,0
  727. 8720 [151]54296,15:[151]54276,33:[151]54277,127
  728. 8730 [129]J[178]1[164]40:[151]54273,4:[151]54272,208:[130]
  729. 8740 [151]54276,0:[151]54273,0:[151]54272,0
  730. 8750 [151]54296,15:[151]54276,33:[151]54277,107
  731. 8760 [129]J[178]1[164]40:[151]54273,5:[151]54272,103:[130]
  732. 8770 [151]54276,0:[151]54273,0:[151]54272,0
  733. 8780 [151]54296,15:[151]54276,33:[151]54277,192
  734. 8790 [129]J[178]1[164]50:[151]54273,4:[151]54272,73:[130]
  735. 8800 [151]54276,0:[151]54273,0:[151]54272,0
  736. 8805 [129]X[178]1[164]800:[130]X
  737. 8810 [151]53280,5:[151]53281,2:[153]"LOAD"
  738. 8812 [153]"      WAIT      WAIT      WAIT      WAIT      WAIT      WAIT    ";
  739. 8814 [153]"      WAIT      WAIT      WAIT      WAIT      WAIT      WAIT    ";
  740. 8816 [153]"      WAIT      WAIT      WAIT      WAIT      WAIT      WAIT    ";
  741. 8818 [153]"      WAIT      WAIT            WAIT            WAIT    ";
  742. 8820 [153]"      WAIT   WAIT   WAIT            WAIT            WAIT    ";
  743. 8822 [153]"      WAIT   WAIT   WAIT      WAIT      WAIT         WAIT    ";
  744. 8824 [153]"         WAIT   WAIT   WAIT      WAIT      WAIT         "
  745. 8826 [153]"            WAIT      WAIT      WAIT         WAIT"
  746. 8828 [153]"    WAIT     WAIT    WAIT   WAIT      WAIT   WAIT       WAIT      "
  747. 8830 [153]"  WAIT  WAIT   WAIT  WAIT       WAIT   WAIT   WAIT   WAIT     WAIT     WAIT   WAIT "
  748. 8832 [153]"  WAIT  WAIT   WAIT  WAIT   WAIT  WAIT  WAIT   WAIT   WAIT   WAIT     WAIT     WAIT   WAIT "
  749. 8834 [153]"  WAIT       WAIT   WAIT  WAIT  WAIT      WAIT   WAIT       WAIT      WAIT "
  750. 8836 [153]"  WAIT       WAIT   WAIT  WAIT  WAIT      WAIT   WAIT       WAIT      WAIT "
  751. 8838 [153]"  WAIT   WAIT  WAIT  WAIT   WAIT    WAIT   WAIT   WAIT   WAIT     WAIT      WAIT   "
  752. 8840 [153]"  WAIT  WAIT   WAIT  WAIT   WAIT    WAIT   WAIT   WAIT   WAIT     WAIT"
  753. 8842 [153]"    WAIT   WAIT  WAIT   WAIT    WAIT      WAIT     WAIT     WAIT    "
  754. 8846 [129]X[178]1[164]5000:[130]:[151]53280,14:[151]53281,12
  755. 8848 [153]"LOAD                                        WAITSTOP"
  756. 8850 [153]"          DON'T YOU THINK THAT"
  757. 8852 [153]:[153]"         YOU OWE IT TO YOURSELFWAITSTOP":[153]
  758. 8854 [153]"       AND YOUR COMPUTER COMPLEXSTOP":[153]
  759. 8856 [153]"            TO INVEST IN A":[153]
  760. 8858 [153][163]6)"           P-6000            ";:[153]"STOP"
  761. 8860 [153]"        TRANSIENT SURGE PROTECTOR  WAITSTOP":[153]:[153]
  762. 8862 [153]"   SEE YOUR NEAREST DEALER AND PROTECT"
  763. 8864 [153]"   THAT INVESTMENT AND ALL THAT DATA":[153]:[153]
  764. 8866 [153]"                                        WAITSTOP";
  765. 8868 [153]"          STOPNEW-TONE ELECTRONICS          WAITSTOP";
  766. 8870 [153]"                                        WAITSTOP"
  767. 8872 [129]X[178]1[164]12000:[130]
  768. 8875 [153]"LOAD":[129]X[178]1[164]800:[130]X:[138]
  769. 9000 [153][200](CD$,25);"                               ON":[151]174,9:[158]12[172]4096
  770. 9015 [153][200](CD$,26);SENT$;"ON"
  771. 9030 [153][200](CD$,25);"                                    ON"
  772. 9050 [131]0,0,3,0,0,6,0,1,252,0,0,248,0,31,224,7,255,128,0,255,254,0,7
  773. 9060 [131]240,0,15,224,0,126,0,63,252,0,3,192,0,255,0,0,31,255,128,1,252,0,0,127
  774. 9070 [131]240,0,3,255,0,0,60,0,63,248,63,255,128,255,192,0
  775. 9080 [131]0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,248,0
  776. 9090 [131]1,252,0,3,252,192,31,255,240,63,255,248,127,255,254,255,255,255,255
  777. 9100 [131]255,255,255,255,255,127,255,254,31,255,248,0,0,0,0,0,0,0,0,0,0,0,0
  778. 9105 [131]0,0,0,0,62,0,0,31,128,0,15,240,0,6,120,0,6,124,0,7,254
  779. 9110 [131]0,3,254,0,7,255,0,15,255,0,31,255,0,3,255,0,3,255,0,7,127
  780. 9115 [131]0,6,254,0,5,254,0,3,252,0,15,240,0,31,128,0,62,0,0,0,0,0,255,0
  781. 9120 [131]3,255,192,15,255,240,31,255,248,63,255,252,63,255,252,127,255,254
  782. 9125 [131]127,255,254,127,255,254,127,255,254,127,255,254,127,255,254,63,255,252
  783. 9130 [131]63,255,252,31,255,248,15,255,240,3,255,192,0,126,0,0,0,0,0,0,0,0,0,0,0
  784. 9135 [129]X[178]0[164]62:[135]Q:[151]832[170]X,Q:[130]
  785. 9140 [129]X[178]0[164]62:[135]Q:[151]896[170]X,Q:[130]
  786. 9145 [129]X[178]0[164]62:[135]Q:[151]960[170]X,Q:[130]
  787. 9150 V[178]53248:[151]2040,13:[151]2041,13:[151]V[170]39,7:[151]V[170]40,7:[151]2042,13
  788. 9155 [151]2043,14:[151]2044,14:[151]2045,15:[151]2046,13:[151]V[170]23,0:[151]V[170]29,0
  789. 9160 [151]2047,15:[151]V[170]41,7:[151]V[170]42,1:[151]V[170]43,1:[151]V[170]44,7:[151]V[170]45,7
  790. 9165 [151]V[170]46,1:[151]53281,0
  791. 9170 [143] LIGHTNING
  792. 9175 [151]53280,5
  793. 9180 [153]"LOAD":[143] DRAW MOUNTAIN RANGE
  794. 9185 [153]"        STEP(null)"
  795. 9190 [153]"  STEP(null)WAIT   STEP  (null)WAIT         STEP(null)WAIT"
  796. 9195 [153]" STEP  (null)WAIT STEP    (null)WAIT       STEP  (null)"
  797. 9200 [153]"STEP    (null)      (null)STEP(null)WAIT   STEP    (null)
  798. 9205 PRINT"    [206]       [206]  [223][146] [169]      [223]"
  799. 9210 PRINT"           [206]    [205]                       ";
  800. 9215 PRINT"                                        ";
  801. 9220 PRINT"                                        ";
  802. 9225 PRINT"                                        ";
  803. 9230 PRINT"                                        ";
  804. 9235 PRINT"                                        ";
  805. 9240 PRINT"                                        ";
  806. 9245 PRINT"                                        ";
  807. 9250 PRINT"                                        ";
  808. 9255 PRINT"                                        ";
  809. 9260 PRINT"                                        ";
  810. 9265 PRINT"                                        ";
  811. 9270 PRINT"                                        ";
  812. 9275 PRINT"                                       ";:POKE2023,160:POKE56295,5
  813. 9280 PRINT"";SPC(1);"[144]         [150]  "
  814. 9285 PRINT"[145][144]           [150] "
  815. 9290 PRINT"           [150]                [144]            "
  816. 9295 PRINT"[145] [158]    [158]  [158]  [158]  [150]                [144] [146]PROTECTION[144] "
  817. 9300 PRINT"           [150]       [146]NTE      [144]    [146]FROM[144]    "
  818. 9305 PRINT"[145] [155]    [158]  [158]  [158]  [150]      [146]P6000     [144] [146]ELECTRICAL[144] "
  819. 9310 PRINT" [155]      [158]    [150]                [144]   [146]SURGES[144]   "
  820. 9315 PRINT"[145] [144]                          [144]            "
  821. 9320 PRINT" [144]                          [144] "
  822. 9325 PRINT"[145] [144]                          [144] "
  823. 9330 PRINT"[145] [144]                   "
  824. 9335 PRINT"[145] [144]  "
  825. 9340 PRINT"[145] [144]                           [145][145][145][145]";
  826. 9350 POKEV+11,60:POKEV+10,150:POKEV+9,80:POKEV+8,0:POKEV+16,8:POKEV+7,60
  827. 9360 S=42:POKE1105,S:POKE1082,S:POKE1085,S:POKE1127,S
  828. 9370 POKE1191,S:POKE1227,S:POKE1249,S
  829. 9380 POKE1257,S:POKE1319,S:POKE1371,S:POKE1376,S:POKE55631,1:POKE53275,160:GOSUB22
  830. 9400 POKEV+14,125:POKEV+15,30:POKE53269,128:FORX=30TO130:POKEV+15,X:FORY=1TO150
  831. 9410 NEXT:NEXT:POKEV+21,0:FORX=0TO62:READQ:POKE960+X,Q:NEXT:POKEV+21,64
  832. 9420 POKEV+11,130:POKEV+21,32:FORX=130TO125STEP-1:POKEV+11,X
  833. 9430 FORY=1TO200:NEXT:NEXT:POKE53281,15
  834. 9440 S=96:POKE1105,S:POKE1082,S:POKE1085,S:POKE1127,S
  835. 9450 POKE1191,S:POKE1227,S:POKE1249,S
  836. 9460 POKE1257,S:POKE1319,S:POKE1371,S:POKE1376,S
  837. 9470 FORX=124TO100STEP-1:POKEV+11,X
  838. 9480 FORY=1TO150:NEXT:NEXT:POKE53281,14
  839. 9490 FORX=99TO60STEP-1:POKEV+11,X
  840. 9500 FORY=1TO150:NEXT:NEXT
  841. 9510 POKE53269,56
  842. 9520 FORX=0TO90:POKEV+8,X:POKEV+6,90-X:FORY=1TO20:NEXT:NEXT
  843. 9530 POKEV+6,255:POKEV+16,0:FORX=91TO180:POKEV+8,X:POKEV+6,345-X
  844. 9540 FORY=1TO20:NEXT:NEXT:POKE53281,15
  845. 9550 FORX=181TO210:POKEV+8,X:POKEV+6,345-X
  846. 9560 FORY=1TO20:NEXT:NEXT:POKE53281,14
  847. 9570 FORX=211TO255:POKEV+8,X:POKEV+6,345-X
  848. 9580 FORY=1TO20:NEXT:NEXT:POKEV+8,0:POKEV+6,90:POKEV+16,16
  849. 9590 FORX=0TO90:POKEV+8,X:POKEV+6,90-X
  850. 9600 FORY=1TO20:NEXT:NEXT:POKEV+43,15:POKEV+42,15:POKEV+21,0:POKEV+29,24
  851. 9610 POKEV+23,24:POKEV+6,90
  852. 9620 POKEV+7,45:POKEV+16,8:POKEV+21,56:FORX=0TO90:POKEV+8,X:POKEV+6,90-X
  853. 9630 FORY=1TO20:NEXT:NEXT
  854. 9640 POKEV+6,255:POKEV+16,0:FORX=91TO105:POKEV+8,X:POKEV+6,345-X
  855. 9650 FORY=1TO20:NEXT:NEXT
  856. 9660 POKEV+0,240:POKEV+1,70:POKEV+2,110:POKEV+3,105:POKE53269,59:FORX=1TO20:NEXT
  857. 9670 FORX=1TO15:POKE53281,1:POKE53281,15:FORY=1TO15:NEXT:NEXT:POKE53269,56
  858. 9680 POKE53281,14
  859. 9690 FORX=106TO180:POKEV+8,X:POKEV+6,345-X
  860. 9700 FORY=1TO20:NEXT:NEXT:POKE53281,12
  861. 9710 FORX=181TO230:POKEV+8,X:POKEV+6,345-X
  862. 9720 FORY=1TO20:NEXT:NEXT:POKE53281,14
  863. 9730 FORX=231TO255:POKEV+8,X:POKEV+6,345-X
  864. 9740 FORQ=1TO20:NEXT:NEXT:POKEV+0,0:POKEV+23,27:POKEV+21,27
  865. 9750 POKEV+0,70:POKEV+1,70:POKEV+2,240:POKEV+3,105:FORX=1TO20:NEXT
  866. 9760 FORX=1TO15:POKE53281,1:POKE53281,15:FORY=1TO15:NEXT:NEXT:POKE53269,56
  867. 9770 POKE53281,14:POKEV+16,16
  868. 9780 FORX=0TO90:POKEV+8,X:POKEV+6,90-X
  869. 9790 FORY=1TO20:NEXT:NEXT:POKEV+42,12:POKEV+43,12:POKEV+9,45:POKEV+8,30
  870. 9800 FORX=0TO30:POKEV+6,X:POKEV+8,30-X:FORY=1TO30:NEXT:NEXT
  871. 9810 POKEV+0,240:POKEV+1,70:POKEV+2,20:POKEV+3,70:POKE53269,59:FORX=1TO20:NEXT
  872. 9820 FORX=1TO15:POKE53281,1:POKE53281,15:FORY=1TO15:NEXT:NEXT:POKE53269,56
  873. 9830 :POKE53281,14
  874. 9840 POKEV+8,255:POKEV+16,0:FORX=31TO120:POKEV+6,X:POKEV+8,285-X
  875. 9850 FORY=1TO30:NEXT:NEXT:POKE53281,15:POKE53269,24
  876. 9860 POKEV+29,91:POKEV+23,91:POKEV+0,120:POKEV+2,80:POKEV+3,110:POKEV+12,40
  877. 9870 POKEV+13,150:POKEV+21,91
  878. 9880 FORX=1TO30:POKEV+29,91:POKE53281,1:FORY=1TO35:NEXT:POKE53281,15:POKEV+29,24
  879. 9890 NEXT:POKE53269,24
  880. 9900 FORX=1TO1000:NEXT:POKEV+21,0:GOTO2057
  881.